home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / text / edit / EdgeTexScripts.lha / print.edge < prev    next >
Encoding:
Text File  |  1994-08-07  |  632 b   |  30 lines
  1. /*Print It*/
  2. Options Results
  3. getenvvar _FE_Name
  4. fenam=result
  5. ch=upper(right(fenam,4))
  6. if compare(ch,'.TEX')==0 then na=left(fenam,length(fenam)-4)
  7.     else na=fenam
  8. nam=na||'.dvi'
  9. say nam
  10. getenvvar _FE_Path
  11. path=result
  12. /*if ~(index(path,'/')==0) then do
  13.         name=nam
  14.     end
  15. else do
  16.         name=path||nam
  17. end*/
  18. name=path||nam
  19. address command 'rename' name name
  20. if ~(rc==0) then exit
  21. getenvvar _FE_Changes
  22. number=result
  23. if ~(number==0) then do
  24.     requestnotify title ERROR string 'You have modified the file.  TeX it first.'
  25.   end
  26. else do
  27.     address command 'TeX:bin/TeXPrt SCREEN=EDGE FILE='name
  28.     address command delete 'TeX:bin/DVIPrint.log'
  29.   end
  30.